{  Statement: http://acmp.ru/?main=task&id_task=14
   Verdict: Accepted
}
uses
    SysUtils, Math;

var
    a,b,x:int64;

procedure swap(var a,b:int64);

var
    t:int64;

begin
t:=a;
a:=b;
b:=t;
end;

begin
reset(input,'input.txt');
rewrite(output,'output.txt');
read(a,b);
if a < b then swap(a,b);
x := a * b;
while b > 0 do begin
    a := a mod b;
    swap(a,b);
end;
write(x div a);
end.